package MyExport;

use warnings;
use strict;
use base 'Exporter::Simple';

our $VERSION = '1.3';

our @bar : Exportable(vars) = (2, 3, 5, 7);
our $foo : Exported(vars)   = 42;
our %baz : Exported         = (a => 65, b => 66);

sub hello : Exported(greet,uk)   { "hello there" }
sub askme : Exportable           { "what you will" }
sub hi    : Exportable(greet,us) { "hi there" }

sub get_foo  : Exported(vars)    { $foo }
sub get_bar  : Exportable(vars)  { @bar }
sub proto($) : Exportable(proto) { @bar }

sub doubler : Exportable {
    my $number = shift;
    $number * 2;
}

1;
